USGS: National Coal Resou…s & Great Plains Regions/USGS National Coal Resource Assessment 1999 - Northern Rocky Mountains & Great Plains Regions - Disc 2.iso/PROGRAM/Tools/shpprop.avx

Text File | 1998-07-10 | 48.3 KB | 1,068 lines

/3.1
(Extension.1
    Name:    "Shape Properties Dialog, ver.1.0"
    Dependencies:    "$AVBIN/avdlog.dll\n"
    FirstRootClassName:    "AVDLog"
    Roots:    2
    Roots:    51
    Roots:    87
    Roots:    119
    Roots:    120
    Roots:    121
    Roots:    122
    Roots:    123
    Roots:    124
    Roots:    125
    Roots:    126
    Roots:    127
    Roots:    128
    Roots:    129
    Roots:    130
    Roots:    131
    Roots:    132
    Roots:    133
    Roots:    134
    Roots:    135
    Roots:    136
    Roots:    137
    Roots:    138
    Roots:    139
    Roots:    140
    Version:    31
    About:    "Shape Properties Dialog, 1.0\nTue Jun 09 16:33:34 1998"
    CanUnloadScript:    141
    UnloadScript:    142
    InstallScript:    143
    UninstallScript:    144
    ExtVersion:    1
)

(AVDLog.2
    Name:    "ShapeWin"
    X:    21
    Y:    58
    W:    319
    H:    218
    HelpTopic:    "Shape_Properties"
    ConstrainedControlNames:    3
    ConstrainedControlNames:    4
    ConstrainedControlNames:    5
    ConstrainedControlNames:    6
    ConstrainedControlNames:    7
    ConstrainedControlNames:    8
    Constraints:    9
    Constraints:    10
    Constraints:    11
    Constraints:    12
    Constraints:    13
    Constraints:    14
    Server:    15
    ControlPanel:    16
    ObjectTag:    49
    Title:    "Shape Properties"
    EscapeEnabled:    1
    AlwaysOnTop:    1
    HasTitleBar:    1
    Closeable:    1
    Activate:    "ShapeWin.Activate"
    Close:    "ShapeWin.Close"
    Open:    "ShapeWin.Open"
    DefaultButton:    50
)

(AVStr.3
    S:    "Apply"
)

(AVStr.4
    S:    "Cancel"
)

(AVStr.5
    S:    "OK"
)

(AVStr.6
    S:    "delete"
)

(AVStr.7
    S:    "add"
)

(AVStr.8
    S:    "Edit"
)

(Numb.9
    N:    102.00000000000000
)

(Numb.10
    N:    102.00000000000000
)

(Numb.11
    N:    102.00000000000000
)

(Numb.12
    N:    86.00000000000000
)

(Numb.13
    N:    86.00000000000000
)

(Numb.14
    N:    86.00000000000000
)

(Nil.15
)

(CPanel.16
    Child:    17
    Child:    19
    Child:    21
    Child:    23
    Child:    24
    Child:    25
    Child:    27
    Child:    28
    Child:    29
    Child:    30
    Child:    32
    Child:    33
    Child:    35
    ResBox:    36
    ResBox:    37
    ResBox:    38
    ResBox:    39
    ResBox:    40
    ResBox:    41
    ResBox:    42
    ResBox:    43
    ResBox:    44
    ResBox:    45
    ResBox:    46
    ResBox:    47
    ResBox:    48
    Listening:    1
)

(AVLBox.17
    InternalName:    "ShapeList"
    Help:    "Displays a list of points making up the shape // Displays a list of points making up the shape"
    NextControl:    17
    ContentKind:    4
    Constraints:    0x33
    ColumnCount:    1
    HorizontalScroll:    1
    Listening:    1
    VerticalScroll:    1
    Select:    "ShapeWin.SelectPoint"
    SelectionStyle:    18
    Apply:    "ShapeWin.ApplyPoint"
)

(AVEnum.18
    Name:    "LISTBOX_SELECTION_MULTIRANGE"
)

(TextLine.19
    InternalName:    "ShapeType"
    Help:    "Displays the shape type // Displays the shape type"
    Label:    "Shape Type"
    Constraints:    0x55
    Listening:    1
    ReadOnly:    1
    TextType:    20
    Size:    15
    NextControl:    15
)

(AVEnum.20
    Name:    "TEXTLINE_TYPE_ALL"
)

(TextLine.21
    InternalName:    "NumVertex"
    Help:    "Displays the number of vertices // Displays the number of vertices"
    Label:    "# of Vertices"
    Constraints:    0x55
    Listening:    1
    ReadOnly:    1
    TextType:    22
    Size:    4
    NextControl:    15
)

(AVEnum.22
    Name:    "TEXTLINE_TYPE_INTEGER"
)

(LButn.23
    InternalName:    "Apply"
    Label:    "Do not delete the button"
    Click:    "ShapeWin.Apply"
)

(LButn.24
    InternalName:    "Cancel"
    Help:    "Press to return to the inital shape//Press to return to the inital shape"
    Label:    "Cancel"
    Click:    "ShapeWin.Cancel"
)

(Butn.25
    InternalName:    "delete"
    Help:    "Delete the Selected Point(s) //Delete the Selected Point(s)"
    Icon:    26
    Click:    "ShapeWin.DeletePT"
)

(AVIcon.26
    Name:    "AlignNone"
    Res:    "Icons.AlignNone"

)

(LButn.27
    InternalName:    "OK"
    Help:    "Press to accept the changes to the shape //Press to accept the changes to the shape"
    Label:    "OK"
    Click:    "ShapeWin.OK"
)

(TextLabel.28
    InternalName:    "aTextLabel17"
    Constraints:    0x56
    Label:    "Edit"
    Listening:    1
)

(TextLabel.29
    InternalName:    "aTextLabel18"
    Constraints:    0x56
    Label:    "Delete"
    Listening:    1
)

(Butn.30
    InternalName:    "add"
    Help:    "Click to add a new point // Click to add a new point"
    Icon:    31
    Click:    "ShapeWin.Add PT"
)

(AVIcon.31
    Name:    "AddMatch"
    Res:    "Icons.AddMatch"

)

(TextLabel.32
    InternalName:    "aTextLabel20"
    Constraints:    0x56
    Label:    "Add"
    Listening:    1
)

(Butn.33
    InternalName:    "Edit"
    Help:    "Select to edit the point location //Select to edit the point location "
    Icon:    34
    Click:    "ShapeWin.ApplyPoint"
)

(AVIcon.34
    Name:    "SelectEdit"
    Res:    "Icons.SelectEdit"

)

(AVCBox.35
    InternalName:    "UpdateShape"
    Help:    "Select this to update the AREA, PERIMETER, and LENGTH fields //Select this to update the AREA, PERIMETER, and LENGTH fields "
    Listening:    1
    Selected:    1
    Label:    "Update Shape Attributes"
    Constraints:    0x65
)

(RectD.36
    Left:    10.00000000000000
    Top:    162.00000000000000
    Right:    232.00000000000000
    Bottom:    30.00000000000000
)

(RectD.37
    Left:    8.00000000000000
    Top:    27.00000000000000
    Right:    164.00000000000000
    Bottom:    7.00000000000000
)

(RectD.38
    Left:    183.00000000000000
    Top:    27.00000000000000
    Right:    315.00000000000000
    Bottom:    7.00000000000000
)

(RectD.39
    Left:    203.00000000000000
    Top:    269.00000000000000
    Right:    299.00000000000000
    Bottom:    241.00000000000000
)

(RectD.40
    Left:    216.00000000000000
    Top:    213.00000000000000
    Right:    312.00000000000000
    Bottom:    185.00000000000000
)

(RectD.41
    Left:    240.00000000000000
    Top:    138.00000000000000
    Right:    268.00000000000000
    Bottom:    110.00000000000000
)

(RectD.42
    Left:    113.00000000000000
    Top:    213.00000000000000
    Right:    209.00000000000000
    Bottom:    185.00000000000000
)

(RectD.43
    Left:    272.00000000000000
    Top:    70.00000000000000
    Right:    303.00000000000000
    Bottom:    42.00000000000000
)

(RectD.44
    Left:    273.00000000000000
    Top:    142.00000000000000
    Right:    317.00000000000000
    Bottom:    114.00000000000000
)

(RectD.45
    Left:    240.00000000000000
    Top:    102.00000000000000
    Right:    268.00000000000000
    Bottom:    74.00000000000000
)

(RectD.46
    Left:    273.00000000000000
    Top:    110.00000000000000
    Right:    310.00000000000000
    Bottom:    82.00000000000000
)

(RectD.47
    Left:    240.00000000000000
    Top:    66.00000000000000
    Right:    268.00000000000000
    Bottom:    38.00000000000000
)

(RectD.48
    Left:    10.00000000000000
    Top:    190.00000000000000
    Right:    235.00000000000000
    Bottom:    162.00000000000000
)

(Nil.49
)

(Nil.50
)

(AVDLog.51
    Name:    "Circle"
    X:    18
    Y:    64
    W:    309
    H:    129
    HelpTopic:    "Circle_Edit"
    ConstrainedControlNames:    52
    ConstrainedControlNames:    53
    ConstrainedControlNames:    54
    ConstrainedControlNames:    55
    Constraints:    56
    Constraints:    57
    Constraints:    58
    Constraints:    59
    Server:    60
    ControlPanel:    61
    ObjectTag:    49
    Title:    "Circle"
    EscapeEnabled:    1
    AlwaysOnTop:    1
    HasTitleBar:    1
    Closeable:    1
    Close:    "ShapeWin.Circle Close"
    Open:    "ShapeWin.Circle Open"
    DefaultButton:    86
)

(AVStr.52
    S:    "OK"
)

(AVStr.53
    S:    "aLabelButton9"
)

(AVStr.54
    S:    "Apply"
)

(AVStr.55
    S:    "CenterTool"
)

(Numb.56
    N:    85.00000000000000
)

(Numb.57
    N:    85.00000000000000
)

(Numb.58
    N:    85.00000000000000
)

(Numb.59
    N:    85.00000000000000
)

(Nil.60
)

(CPanel.61
    Child:    62
    Child:    74
    Child:    76
    Child:    77
    Child:    78
    Child:    79
    ResBox:    80
    ResBox:    81
    ResBox:    82
    ResBox:    83
    ResBox:    84
    ResBox:    85
    Listening:    1
)

(CPanel.62
    InternalName:    "aControlPanel24"
    Child:    63
    Child:    65
    Child:    67
    Child:    69
    Constraints:    0x55
    ResBox:    70
    ResBox:    71
    ResBox:    72
    ResBox:    73
    VisibleBorder:    1
    Listening:    1
)

(Tool.63
    InternalName:    "CenterTool"
    Help:    "Use to enter the center of the circle by pointing in the View // Use to enter the center of the circle by pointing in the View"
    Icon:    64
    Cursor:    "Cursors.Default"
    Apply:    "ShapeWin.GetPoint from View"
)

(AVIcon.64
    Name:    "SelectCircle"
    Res:    "Icons.SelectCircle"

)

(TextLine.65
    InternalName:    "x"
    Text:    "0.522242"
    Label:    "Center X"
    Constraints:    0x55
    Listening:    1
    TextType:    66
    Size:    10
    NextControl:    60
)

(AVEnum.66
    Name:    "TEXTLINE_TYPE_REAL"
)

(TextLine.67
    InternalName:    "y"
    Text:    "0.688047"
    Label:    "Center Y"
    Constraints:    0x55
    Listening:    1
    TextType:    68
    Size:    10
    NextControl:    60
)

(AVEnum.68
    Name:    "TEXTLINE_TYPE_REAL"
)

(TextLabel.69
    InternalName:    "aTextLabel23"
    Constraints:    0x55
    Label:    "Select the\ncenter point"
    Listening:    1
)

(RectD.70
    Left:    195.00000000000000
    Top:    36.00000000000000
    Right:    219.00000000000000
    Bottom:    12.00000000000000
)

(RectD.71
    Left:    4.00000000000000
    Top:    28.00000000000000
    Right:    184.00000000000000
    Bottom:    8.00000000000000
)

(RectD.72
    Left:    4.00000000000000
    Top:    54.00000000000000
    Right:    184.00000000000000
    Bottom:    34.00000000000000
)

(RectD.73
    Left:    225.00000000000000
    Top:    45.00000000000000
    Right:    298.00000000000000
    Bottom:    10.00000000000000
)

(TextLine.74
    InternalName:    "radius"
    Text:    "0.112363"
    Label:    "Radius"
    Constraints:    0x55
    Listening:    1
    TextType:    75
    Size:    10
    NextControl:    60
)

(AVEnum.75
    Name:    "TEXTLINE_TYPE_REAL"
)

(LButn.76
    InternalName:    "OK"
    Label:    "OK"
    Click:    "ShapeWin.Circle OK"
)

(LButn.77
    InternalName:    "aLabelButton9"
    Label:    "Cancel"
    Click:    "ShapeWin.Circle Cancel"
)

(LButn.78
    InternalName:    "Apply"
    Label:    "Apply"
    Click:    "ShapeWin.Circle Apply"
)

(TextLabel.79
    InternalName:    "units"
    Constraints:    0x55
    Listening:    1
)

(RectD.80
    Left:    8.00000000000000
    Top:    67.00000000000000
    Right:    308.00000000000000
    Bottom:    4.00000000000000
)

(RectD.81
    Left:    20.00000000000000
    Top:    92.00000000000000
    Right:    192.00000000000000
    Bottom:    72.00000000000000
)

(RectD.82
    Left:    8.00000000000000
    Top:    125.00000000000000
    Right:    90.00000000000000
    Bottom:    101.00000000000000
)

(RectD.83
    Left:    207.00000000000000
    Top:    125.00000000000000
    Right:    289.00000000000000
    Bottom:    101.00000000000000
)

(RectD.84
    Left:    107.00000000000000
    Top:    125.00000000000000
    Right:    189.00000000000000
    Bottom:    101.00000000000000
)

(RectD.85
    Left:    204.00000000000000
    Top:    100.00000000000000
    Right:    300.00000000000000
    Bottom:    72.00000000000000
)

(Nil.86
)

(AVDLog.87
    Name:    "XY Point"
    X:    16
    Y:    57
    W:    284
    H:    128
    HelpTopic:    "Vertex_Point_Edit"
    ConstrainedControlNames:    88
    ConstrainedControlNames:    89
    ConstrainedControlNames:    90
    Constraints:    91
    Constraints:    92
    Constraints:    93
    Server:    94
    ControlPanel:    95
    ObjectTag:    49
    Title:    "Vertex Point Edit"
    EscapeEnabled:    1
    AlwaysOnTop:    1
    HasTitleBar:    1
    Closeable:    1
    DefaultButton:    108
)

(AVStr.88
    S:    "OK"
)

(AVStr.89
    S:    "cancel"
)

(AVStr.90
    S:    "LocatePT"
)

(Numb.91
    N:    85.00000000000000
)

(Numb.92
    N:    85.00000000000000
)

(Numb.93
    N:    85.00000000000000
)

(Nil.94
)

(CPanel.95
    Child:    96
    Child:    108
    Child:    109
    Child:    110
    Child:    112
    ResBox:    114
    ResBox:    115
    ResBox:    116
    ResBox:    117
    ResBox:    118
    Listening:    1
)

(CPanel.96
    InternalName:    "aControlPanel20"
    Child:    97
    Child:    98
    Child:    100
    Child:    102
    Constraints:    0x55
    ResBox:    104
    ResBox:    105
    ResBox:    106
    ResBox:    107
    VisibleBorder:    1
    Listening:    1
)

(TextLabel.97
    InternalName:    "aTextLabel16"
    Constraints:    0x55
    Label:    "Select the\npoint location"
    Listening:    1
)

(TextLine.98
    InternalName:    "y"
    Help:    "Enter in the new location for the point here // Enter in the new location for the point here"
    Text:    "00000000"
    Label:    "y"
    Constraints:    0x55
    Listening:    1
    TextType:    99
    NextControl:    94
)

(AVEnum.99
    Name:    "TEXTLINE_TYPE_REAL"
)

(TextLine.100
    InternalName:    "x"
    Help:    "Enter in the new location for the point here // Enter in the new location for the point here"
    Text:    "00000000"
    Label:    "x"
    Constraints:    0x55
    Listening:    1
    TextType:    101
    NextControl:    94
)

(AVEnum.101
    Name:    "TEXTLINE_TYPE_REAL"
)

(Tool.102
    InternalName:    "LocatePT"
    Help:    "Locate a new point location on the view // Locate a new point location on the view"
    Icon:    103
    Cursor:    "Cursors.CrossHair"
    Apply:    "ShapeWin.GetPoint from View"
)

(AVIcon.103
    Name:    "SelectEdit"
    Res:    "Icons.SelectEdit"

)

(RectD.104
    Left:    190.00000000000000
    Top:    52.00000000000000
    Right:    286.00000000000000
    Bottom:    15.00000000000000
)

(RectD.105
    Left:    4.00000000000000
    Top:    56.00000000000000
    Right:    148.00000000000000
    Bottom:    36.00000000000000
)

(RectD.106
    Left:    4.00000000000000
    Top:    30.00000000000000
    Right:    148.00000000000000
    Bottom:    10.00000000000000
)

(RectD.107
    Left:    156.00000000000000
    Top:    37.00000000000000
    Right:    180.00000000000000
    Bottom:    13.00000000000000
)

(LButn.108
    InternalName:    "OK"
    Help:    "Press to accept the new point location // Press to accept the new point location"
    Label:    "OK"
    Click:    "ShapeWin.Vertex Edit OK"
)

(LButn.109
    InternalName:    "cancel"
    Help:    "Press to cancel any changes // Press to cancel any changes"
    Label:    "Cancel"
    Click:    "ShapeWin.Vertex Edit Cancel"
)

(TextLine.110
    InternalName:    "z"
    Help:    "Enter in the new z for the point here // Enter in the new z for the point here"
    Text:    "00000"
    Label:    "Elevation (z)"
    Constraints:    0x55
    Listening:    1
    TextType:    111
    Size:    5
    NextControl:    94
)

(AVEnum.111
    Name:    "TEXTLINE_TYPE_REAL"
)

(TextLine.112
    InternalName:    "m"
    Help:    "Enter in the new m for the point here // Enter in the new m for the point here"
    Text:    "00000"
    Label:    "Measure (m)"
    Constraints:    0x55
    Listening:    1
    TextType:    113
    Size:    5
    NextControl:    94
)

(AVEnum.113
    Name:    "TEXTLINE_TYPE_REAL"
)

(RectD.114
    Left:    6.00000000000000
    Top:    65.00000000000000
    Right:    282.00000000000000
    Bottom:    4.00000000000000
)

(RectD.115
    Left:    105.00000000000000
    Top:    124.00000000000000
    Right:    187.00000000000000
    Bottom:    100.00000000000000
)

(RectD.116
    Left:    195.00000000000000
    Top:    124.00000000000000
    Right:    277.00000000000000
    Bottom:    100.00000000000000
)

(RectD.117
    Left:    7.00000000000000
    Top:    92.00000000000000
    Right:    149.00000000000000
    Bottom:    72.00000000000000
)

(RectD.118
    Left:    154.00000000000000
    Top:    92.00000000000000
    Right:    282.00000000000000
    Bottom:    72.00000000000000
)

(Script.119
    Name:    "ShapeWin.Activate"
    SourceCode:    "thedialog=self\nav.clearstatus\nif (thedialog.isOpen.Not) then\n  return(nil)\nend\n\n\nif (av.finddialog(\"XY Point\").isOpen) then\n\n  av.finddialog(\"XY Point\").activate\n  return(nil)\nend\ntheview=av.getactivedoc\n\nif (theview.is(view).not) then\n  for each acontrol in theDialog.getcontrolpanel.getcontrols\n    if (acontrol.is(ControlPanel)) then\n      for each thectl in acontrol.getcontrols\n         thectl.setenabled(false)\n      end\n    else\n      acontrol.setenabled(false)\n    end\n   end\n   thedialog.findbyname(\"Can
cel\").setenabled(TRUE)\n  \n  \n  'self.close\n  return(nil)\nelse\n  for each acontrol in theDialog.getcontrolpanel.getcontrols\n    if (acontrol.is(ControlPanel)) then\n      for each thectl in acontrol.getcontrols\n        if (thectl.getname<>\"UpdateShape\") then\n          thectl.setenabled(TRUE)\n        end\n      end\n    else\n      if (acontrol.getname<>\"UpdateShape\") then\n        acontrol.setenabled(TRUE)\n      end\n    end\n'   thedialog.findbyname(\"Cancel\").setenabled(TRUE)\n  end\nend\n\n\nif (self.getobjecttag.is(l
ist)) then\n\n  if (theview.GetEditableTheme = NIL) then\n    self.close\n    return(nil)\n  end\nend\n\n\ntheTheme = theView.GetEditableTheme\nif (theTheme=NIL) then\n  TheGraphics=theView.getgraphics\n  theSelGraphics=theGraphics.getselected\n  \n  if (theSelGraphics.count <> 1) then\n    self.close\n    return(nil)\n  end\n\n  theSelGraphic=theSelGraphics.get(0)  \n  ' -------------------------\n  ' Trap for Graphic Text\n  ' -------------------------\n  if (theSelGraphic.is(graphicText)) then\n    self.close\n    return(nil)\n
end\n\n  theShape= theSelGraphic.getshape\n  theshapesrc=theshape\nelse\n  theFtab=thetheme.getftab\n  if (theFtab.getselection.count=0) then\n    self.close \n  end\n  thesel=theftab.getselection\n  theshpfld=theftab.findfield(\"shape\")\n  for each arec in thesel\n    theshapesrc=theftab.returnvalue(theshpfld,arec)\n    break\n  end\nend\n\ntheobjtag=thedialog.findbyname(\"apply\").getobjecttag\n  \nif (theshapesrc<>theobjtag) then\n   msgbox.warning(\"The selected shape has been changed, the dialog will now re-initalize\",\"Warnin
g\")\n\n    self.close\n    self.open\n    \nend\n'msgbox.info(\"\",\"5\")\n"
)

(Script.120
    Name:    "ShapeWin.Add PT"
    SourceCode:    "thedialog=self.getdialog\nif (av.getactivedoc.is(view).not) then\n  return(nil)\nend\n\n\nshapelist=thedialog.findbyname(\"ShapeList\").getlist\nshapetype=thedialog.findbyname(\"ShapeType\").gettext\nthepoint=thedialog.findbyname(\"ShapeList\").getcurrentvalue\n\naloc=shapelist.findbyvalue(thepoint)\n\nif (aloc=-1) then ' why this would happen I don't know?\n  newpoint=0@0\n  shapelist.add(newpoint)\n\nelse\n  newpoint=thepoint.clone\n  shapelist.add(newpoint)\n  shapelist.shuffle(newpoint,aloc+1)\n\nend\n\nthedialog.findbyname(\"ShapeL
ist\").definefromlist(shapelist)\n\n  thepts=av.getactivedoc.getgraphics.findallbyname(\"VertexPoints\")\n  if (thepts <> NIL) then\n    for each apt in thepts.clone\n      av.getactivedoc.getgraphics.removeGraphic(apt)\n    end\n  end \n\nthedialog.findbyname(\"ShapeList\").gorow(aloc+1)\nthedialog.findbyname(\"ShapeList\").selectcurrent(FALSE)\nthedialog.findbyname(\"ShapeList\").showcurrent\nthedialog.findbyname(\"ShapeList\").select\nthedialog.findbyname(\"Apply\").click\nthedialog.findbyname(\"ShapeList\").apply\n\n"
)

(Script.121
    Name:    "ShapeWin.Apply"
    SourceCode:    "thedialog=self.getdialog\nTheApply=thedialog.findbyname(\"Apply\")\nav.run(\"ShapeWin.OKandApply\",{theApply,\"TempGraphic\"})\n\n"
)

(Script.122
    Name:    "ShapeWin.ApplyPoint"
    SourceCode:    "\ntheView=av.getactivedoc\nif (theview.is(View).not) then\n  return(nil)\nend\n\nthedialog=SELF.getdialog\nthexydialog=av.finddialog(\"XY Point\")\nxtext=thexydialog.findbyname(\"x\")\nytext=thexydialog.findbyname(\"y\")\nztext=thexydialog.findbyname(\"z\")\nmtext=thexydialog.findbyname(\"m\")\n\nthepoint=thedialog.findbyname(\"ShapeList\").getcurrentvalue\nif (thepoint.is(Point).not) then\n  return(nil)\nend\nx=thepoint.getx\ny=thepoint.gety\nm=NIL\nz=NIL\n\nif (thepoint.isMeasured) then\n  m=thepoint.getm\nend\n\nif (thepoint.HasZ) then\n  z=t
hepoint.getz\nend\n\nif (x.asstring.contains(\"e\")) then\n  x.setformat(\"d.dddddd\")\nend\n\nif (y.asstring.contains(\"e\")) then\n  y.setformat(\"d.dddddd\")\nend\n\nxtext.setsize(x.asstring.count +5)\nytext.setsize(y.asstring.count+5)\nxtext.settext(x.asstring)\nytext.settext(y.asstring)\n\nif (z<>NIL) then\n  ztext.setvisible(TRUE)\n  ztext.setsize(z.asstring.count+5)\n  ztext.settext(z.asstring)\nelse\n  ztext.settext(\"0\")\n  ztext.setsize(4)\n  ztext.setvisible(true)\n  ztext.setvisible(FALSE)\nend\n\n\nif (m<>NIL) then\n  \n  mtext.setv
isible(TRUE)\n  mtext.setsize(m.asstring.count+5)\n  mtext.settext(m.asstring)\nelse\n  mtext.settext(\"0\")\n  mtext.setsize(4)\n  mtext.setvisible(true)\n  mtext.setvisible(FALSE)\n  \nend\n\n\n\n\nagraphic=graphicshape.make(x@y)\nthepts=av.getactivedoc.getgraphics.findallbyname(\"VertexPoints\")\nif (thepts <> NIL) then\nfor each apt in thepts.clone\n  av.getactivedoc.getgraphics.removeGraphic(apt)\nend\nend\n'agraphic.getsymbol.setcolor(color.getred)\nagraphic.setname(\"VertexPoints\")\nav.getactivedoc.getgraphics.add(agraphic)\n\n\nt
hexydialog.open\nthexydialog.findbyname(\"LocatePT\").select\n\n"
)

(Script.123
    Name:    "ShapeWin.Cancel"
    SourceCode:    "thedialog=self.getdialog\nupdateshape=thedialog.findbyname(\"updateshape\")\n\ntheView=av.getactivedoc\nif (theview.is(View)) then\n  thepts=av.getactivedoc.getgraphics.findallbyname(\"VertexPoints\")\n  if (thepts <> NIL) then\n    for each apt in thepts.clone\n      av.getactivedoc.getgraphics.removeGraphic(apt)\n    end\n  end \n'===============================================\n\nif (thedialog.getobjecttag.is(Graphic)) then \n  badg=theview.getgraphics.findallbyname(\"TempGraphic\")\n  if (badg <> NIL) then\n    for each abag
graphic in badg.clone\n      theview.getgraphics.removeGraphic(abaggraphic)\n    end\n  end \n  agoodgraphic=self.getdialog.getobjecttag\n  if (agoodgraphic.is(graphic)) then\n    agoodgraphic.setname(\"\")\n\n    agoodgraphic.setselected(TRUE)\n    theview.getgraphics.add(agoodgraphic)\n  end\n\nelseif ((thedialog.getobjecttag.is(list)) and (thedialog.getobjecttag.get(0).is(FTAB)) ) then\n  theTheme = theView.GetEditableTheme\n  if (thetheme=NIL) then\n    av.finddialog(\"ShapeWin\").close\n    return(nil)\n  end\n  \n  theftab=
thedialog.getobjecttag.get(0)\n  \n  if (thetheme.getftab<>theftab) then\n    av.finddialog(\"ShapeWin\").close\n    return(nil)\n  end\n  \n  shpfld=theftab.findfield(\"shape\")\n  therec=thedialog.getobjecttag.get(1)\n  theoldshp=thedialog.getobjecttag.get(2)\n  \n  if (updateshape.isselected) then\n    areafld=theftab.findfield(\"area\")\n    lengthfld=theftab.findfield(\"length\")\n    perimfld=theftab.findfield(\"perimeter\")\n    \n    if (shpfld.gettype=#FIELD_SHAPEPOLY) then\n      theftab.BeginTransaction\n        if (areafld
<>NIL) then\n          theftab.setvalue(areafld,therec,theoldshp.returnarea)\n        end\n        if (perimfld<>NIL) then\n          theftab.setvalue(perimfld,therec,theoldshp.returnlength)\n        end\n      theftab.EndTransaction  \n    elseif (shpfld.gettype=#FIELD_SHAPELINE) then\n      theftab.BeginTransaction\n      if (lengthfld<>NIL) then\n        theftab.setvalue(lengthfld,therec,theoldshp.returnlength)\n      end\n      theftab.EndTransaction  \n    end\n  end\n  theftab.BeginTransaction\n    theftab.setvalue(s
hpfld,therec,theoldshp)\n  theftab.EndTransaction\n  theview.getdisplay.invalidaterect(theoldshp.returnextent)\n  \nend\n\n\n\n'==============================================\nend\n\nav.finddialog(\"ShapeWin\").close\n\n"
)

(Script.124
    Name:    "ShapeWin.Circle Apply"
    SourceCode:    "thedialog=self.getdialog\ntheview=av.getactivedoc\nif (Theview.is(View).not) then\n  return(nil)\nend\n\ncenx=thedialog.findbyname(\"x\").gettext\nceny=thedialog.findbyname(\"y\").gettext\ntheRadius=thedialog.findbyname(\"radius\").gettext\n\n\nfinalshape=circle.make([e-mail],theRadius.asnumber)\n\n\n badg=theview.getgraphics.findallbyname(\"TempGraphic\")\n  if (badg <> NIL) then\n    for each abaggraphic in badg.clone\n      theview.getgraphics.removeGraphic(abaggraphic)\n    end\n  end \nagshape=graphicshape.make
(finalshape)\nagshape.setname(\"TempGraphic\")\nagshape.setselected(true)\n\nagoodgraphic=self.getdialog.getobjecttag\nasym=agoodgraphic.getsymbol.clone\nagshape.setsymbol(asym)\ntheview.getgraphics.add(agshape)\n"
)

(Script.125
    Name:    "ShapeWin.Circle Cancel"
    SourceCode:    "thedialog=self.getdialog\n\ntheView=av.getactivedoc\nif (theview.is(View)) then\n  thepts=av.getactivedoc.getgraphics.findallbyname(\"VertexPoints\")\n  if (thepts <> NIL) then\n    for each apt in thepts.clone\n      av.getactivedoc.getgraphics.removeGraphic(apt)\n    end\n  end \n\n  badg=theview.getgraphics.findallbyname(\"TempGraphic\")\n  if (badg <> NIL) then\n    for each abaggraphic in badg.clone\n      theview.getgraphics.removeGraphic(abaggraphic)\n    end\n  end \n  agoodgraphic=self.getdialog.getobjecttag\n  if (agoo
dgraphic.is(graphic)) then\n    agoodgraphic.setname(\"\")\n    theview.getgraphics.add(agoodgraphic.clone)\n  end\nend\nself.getdialog.close\n\n"
)

(Script.126
    Name:    "ShapeWin.Circle Close"
    SourceCode:    "theView=av.getactivedoc\n\nif (theview.is(View)) then\n  thepts=av.getactivedoc.getgraphics.findallbyname(\"VertexPoints\")\n  if (thepts <> NIL) then\n    for each apt in thepts.clone\n      av.getactivedoc.getgraphics.removeGraphic(apt)\n    end\n  end \n  av.getactiveGUI.gettoolbar.getcontrols.get(0).select\n\nend\n"
)

(Script.127
    Name:    "ShapeWin.Circle OK"
    SourceCode:    "thedialog=self.getdialog\ntheview=av.getactivedoc\nif (Theview.is(View).not) then\n  return(nil)\nend\n\ncenx=thedialog.findbyname(\"x\").gettext\nceny=thedialog.findbyname(\"y\").gettext\ntheRadius=thedialog.findbyname(\"radius\").gettext\n\n\nfinalshape=circle.make([e-mail],theRadius.asnumber)\n\n\n badg=theview.getgraphics.findallbyname(\"TempGraphic\")\n  if (badg <> NIL) then\n    for each abaggraphic in badg.clone\n      theview.getgraphics.removeGraphic(abaggraphic)\n    end\n  end \nagshape=graphicshape.make
(finalshape)\n'agshape.setname(\"TempGraphic\")\nagshape.setselected(true)\n\nagoodgraphic=self.getdialog.getobjecttag\nasym=agoodgraphic.getsymbol.clone\nagshape.setsymbol(asym)\ntheview.getgraphics.add(agshape)\nself.getdialog.setobjecttag(\"\")\nself.getdialog.close\n"
)

(Script.128
    Name:    "ShapeWin.Circle Open"
    SourceCode:    "thedialog=SELF\n\n\ntheView=av.getactivedoc\nif (theview.is(View).not) then\n  return(nil)\nend\n\ntheunits=theview.getdisplay.getdistanceunits.asstring\nunitlist=theunits.astokens(\"_\")\ntheunit=unitlist.get(2)\nif (theunit=\"Unknown\") then\n  theunit=\"\"\nend\n\nthedialog.findbyname(\"Units\").setlabel(theunit.proper)\n\n\nTheGraphics=theView.getgraphics\ntheSelGraphics=theGraphics.getselected\n\nif (theSelGraphics.count <> 1) then\n  exit\nend\n\ntheSelGraphic=theSelGraphics.get(0)\ntheShape= theSelGraphic.getshape\n\nxtxt=thedialog.fin
dbyname(\"x\")\nytxt=thedialog.findbyname(\"y\")\nradtxt=thedialog.findbyname(\"Radius\")\n\nthecen=theshape.returncenter\ntherad=theshape.getradius\n\nxtxt.settext(thecen.getx.asstring)\nytxt.settext(thecen.gety.asstring)\nradtxt.settext(therad.asstring)\n\nx=thecen.getx\ny=thecen.gety\n\n\nagraphic=graphicshape.make(x@y)\nthepts=av.getactivedoc.getgraphics.findallbyname(\"VertexPoints\")\nif (thepts <> NIL) then\n  for each apt in thepts.clone\n    av.getactivedoc.getgraphics.removeGraphic(apt)\n  end\nend\nagraphic.getsymbol.setcolor
(color.getred)\nagraphic.setname(\"VertexPoints\")\nav.getactivedoc.getgraphics.add(agraphic)\n\nthedialog.findbyname(\"CenterTool\").select\n\ntheselgraphic.setname(\"TempGraphic\")\nTheDialog.setobjecttag(theselgraphic.clone)\n\n\n"
)

(Script.129
    Name:    "ShapeWin.Close"
    SourceCode:    "theView=av.getactivedoc\n\nif (theview.is(View)) then\n  thepts=av.getactivedoc.getgraphics.findallbyname(\"VertexPoints\")\n  if (thepts <> NIL) then\n    for each apt in thepts.clone\n      av.getactivedoc.getgraphics.removeGraphic(apt)\n    end\n  end \n'  av.getactiveGUI.gettoolbar.getcontrols.get(0).select\n\nend\n"
)

(Script.130
    Name:    "ShapeWin.DeletePT"
    SourceCode:    "thedialog=self.getdialog\nif (av.getactivedoc.is(view).not) then\n  return(nil)\nend\n\n\nshapelist=thedialog.findbyname(\"ShapeList\").getlist\nshapetype=thedialog.findbyname(\"ShapeType\").gettext\nthepoints=thedialog.findbyname(\"ShapeList\").getselection\nif (thepoints.count=0) then\n return(nil)\nend\nthedialog.findbyname(\"ShapeList\").GoFirstSelected \noldrec=thedialog.findbyname(\"ShapeList\").getcurrentrow\n\nif ((shapetype=\"Polygon\") or (shapetype=\"Multi-Polygon\")) then\n amin=3\nelseif ((shapetype=\"Line\") or (shapetype=\"Po
lyLine\") or(shapetype=\"Multi-PolyLine\")) then\n amin=2\nelseif ((shapetype=\"Point\") or (shapetype=\"Multi-Point\"))  then\n amin=1\nend\n\nasepstring=\"------Multi-Part Separator -----\"\nsep=shapelist.findbyvalue(asepstring)\navalue=shapelist.count - thepoints.count\n\nif (sep=-1) then\n if ((shapelist.count - thepoints.count) < amin) then\n    amin=amin.setformat(\"d\")\n   msgbox.error(\"You cannot delete this point, a minimum of \"+amin.asstring+\" points are needed for \"+shapetype+\" shapes.\",\"Error\")\n   return(nil)\n end\nels
e ' Multipoint\nnewshape={}\n  for each aitem in shapelist\n    if (aitem.is(point)) then\n      if (thepoints.find(aitem) = -1) then\n        newshape.add(aitem)\n      end\n    else\n     if (newshape.count < amin) then\n       amin=amin.setformat(\"d\")\n       msgbox.error(\"You cannot delete this point, a minimum of \"+amin.asstring+\" points are needed for \"+shapetype+\" shapes.\",\"Error\")\n       return(nil)\n     else\n       newshape={}\n     end\n    end\n  end\nend\n\n  thepts=av.getactivedoc.getgraphics.findallbyname(\"Ve
rtexPoints\")\n  if (thepts <> NIL) then\n    for each apt in thepts.clone\n      av.getactivedoc.getgraphics.removeGraphic(apt)\n    end\n  end \n\n' From here we assume that all the points can be deleted\nfor each athing in thepoints.clone\n  shapelist.removeobj(athing)\nend\n\n'shapelist=shapelist - thepoints\nthedialog.findbyname(\"ShapeList\").definefromlist(shapelist)\nthedialog.findbyname(\"ShapeList\").gorow(oldrec-1)\nthedialog.findbyname(\"ShapeList\").selectcurrent(FALSE)\nthedialog.findbyname(\"ShapeList\").showcurrent\n
thedialog.findbyname(\"ShapeList\").select\nthedialog.findbyname(\"Apply\").click\n\n"
)

(Script.131
    Name:    "ShapeWin.GetPoint from View"
    SourceCode:    "theView=av.getactivedoc\nif (theview.is(View).not) then\n  return(nil)\nend\n\nthedialog=SELF.getdialog\nthepoint=theview.getdisplay.returnuserpoint\nif (thepoint=NIL) then\n return(niL)\nend\n\nx=thepoint.getx\ny=thepoint.gety\n\n\nthedialog.findbyname(\"x\").settext(x.asstring)\nthedialog.findbyname(\"y\").settext(y.asstring)\n\nagraphic=graphicshape.make(x@y)\nthepts=av.getactivedoc.getgraphics.findallbyname(\"VertexPoints\")\nif (thepts <> NIL) then\nfor each apt in thepts.clone\n  av.getactivedoc.getgraphics.removeGraphic(apt)\nen
d\nend\n'agraphic.getsymbol.setcolor(color.getred)\nagraphic.setname(\"VertexPoints\")\nav.getactivedoc.getgraphics.add(agraphic)\n"
)

(Script.132
    Name:    "ShapeWin.OK"
    SourceCode:    "thedialog=self.getdialog\nTheApply=thedialog.findbyname(\"Apply\")\nav.run(\"ShapeWin.OKandApply\",{theApply,\"\"})\n\nthedialog.setobjecttag(\"\")\ntheApply.setobjecttag(\"\")\n\nthedialog.close\n\n"
)

(Script.133
    Name:    "ShapeWin.OKandApply"
    SourceCode:    "'SELF = {the apply control,\"TempGraphic\"}\ngstring=SELF.get(1)\nthedialog=self.get(0).getdialog\ntheapply=self.get(0)\ntheview=av.getactivedoc\n\nif (theView.is(View).not) then\n  return(nil)\nend\n\nshapelist=thedialog.findbyname(\"Shapelist\").getlist\nshptype=thedialog.findbyname(\"ShapeType\").gettext\nupdateshape=thedialog.findbyname(\"UpdateShape\")\n'msgbox.info(shptype,\"shptype\")\n\nif ((shptype=\"Polygon\") or (shptype=\"Multi-Polygon\")) then\n  asepstring=\"------Multi-Part Separator -----\"\n  sep=shapelist.findbyvalue(asep
string)\n  if (sep=-1) then\n    ' simple polygon\n\n      if (shapelist.get(0).is(PointM)) then\n        if (shapelist.get(0).hasZ) then\n          finalshape=polygonZ.make({shapelist})\n        else\n          finalshape=polygonM.make({shapelist})\n        end\n      else\n        finalshape=polygon.make({shapelist})\n      end\n    \n  else\n    'complex polygon\n    listofpolys={}\n    newshape={}\n    for each aitem in shapelist\n      if (aitem.is(point)) then\n       newshape.add(aitem)\n      else\n        listofpolys.ad
d(newshape)\n        newshape={}\n      end\n    end\n      if (shapelist.get(0).is(PointM)) then\n        if (shapelist.get(0).hasZ) then\n          finalshape=polygonZ.make(listofpolys)\n        else\n          finalshape=polygonM.make(listofpolys)\n        end\n      else\n        finalshape=polygon.make(listofpolys)       \n      end\n\n  end\n  \n  \n\nelseif ((shptype=\"Line\") or (shptype.contains(\"PolyLine\"))) then\n  if (shapelist.count=2) then\n      if (shapelist.get(0).is(PointM)) then\n        if (shapelist.get(0).ha
sZ) then\n          finalshape=polylinez.make({shapelist.get(0),shapelist.get(1)})\n        else\n          finalshape=polylinem.make({shapelist.get(0),shapelist.get(1)})\n        end\n      else\n        finalshape=polyline.make({{shapelist.get(0),shapelist.get(1)}})\n      end\n  else\n    '---------------------\n     asepstring=\"------Multi-Part Separator -----\"\n    sep=shapelist.findbyvalue(asepstring)\n    if (sep=-1) then\n      ' simple polyline\n'      msgbox.info(\"simple\",\"\")\n\n'      finalshape=polyline.make({s
hapelist})\n      if (shapelist.get(0).is(PointM)) then\n        if (shapelist.get(0).hasZ) then\n          finalshape=polylinez.make({shapelist})\n        else\n          finalshape=polylinem.make({shapelist})\n        end\n      else\n        finalshape=polyline.make({shapelist})\n      end\n   \n    else\n      'complex polyline\n'      msgbox.info(\"complex\",\"\")\n      listofpolylines={}\n      newshape={}\n      for each aitem in shapelist\n        if (aitem.is(point)) then\n         newshape.add(aitem)\n        else\n
      listofpolylines.add(newshape)\n          newshape={}\n        end\n      end\n      if (shapelist.get(0).is(PointM)) then\n        if (shapelist.get(0).hasZ) then\n          finalshape=polylinez.make(listofpolylines)\n        else\n          finalshape=polylinem.make(listofpolylines)\n        end\n      else\n        finalshape=polyline.make(listofpolylines)\n      end\n    end\n  end \n\n  \n\nelseif ((shptype=\"Point\") or (shptype=\"Multi-Point\"))  then\n  if (shapelist.count=1) then\n    finalshape=shapelist.get(0)\n
\n  else\n    if (shapelist.get(0).is(PointM)) then\n      if (shapelist.get(0).hasZ) then\n        finalshape=multipointz.make(shapelist)\n      else\n        finalshape=multipointm.make(shapelist)\n      end\n    else\n      finalshape=multipoint.make(shapelist)\n    end\n\n  end\n  \nend\n\nif (thedialog.getobjecttag.is(Graphic)) then \n  badg=theview.getgraphics.findallbyname(\"TempGraphic\")\n  if (badg <> NIL) then\n    for each abaggraphic in badg.clone\n      theview.getgraphics.removeGraphic(abaggraphic)\n    end\n  end \n
  finalshape=finalshape.clean\n  agoodgraphic=thedialog.getobjecttag\n  asym=agoodgraphic.getsymbol.clone\n\n  agshape=graphicshape.make(finalshape)\n  agshape.setsymbol(asym)\n  agshape.setname(gstring)\n  agshape.setselected(true)\n  theview.getgraphics.add(agshape)\n\nelseif ((thedialog.getobjecttag.is(list)) and (thedialog.getobjecttag.get(0).is(FTAB)) ) then\n  theTheme = theView.GetEditableTheme\n  if (thetheme=NIL) then\n    return(nil)\n  end\n  \n  theftab=thedialog.getobjecttag.get(0)\n  shpfld=theftab.findfield(\"
shape\")\n  therec=thedialog.getobjecttag.get(1)\n  \n  if (thetheme.getftab<>theftab) then\n    return(nil)\n  end\n  theftab.BeginTransaction\n  theoldshp=thedialog.getobjecttag.get(2)\n  if (theview.getprojection.isnull) then\n    theftab.setvalue(shpfld,therec,finalshape)\n  else\n    finalshape=finalshape.returnunprojected(theview.getprojection)\n    theftab.setvalue(shpfld,therec,finalshape)\n  end\n  theftab.EndTransaction\n  \n  if (updateshape.isSelected) then  \n    areafld=theftab.findfield(\"area\")\n    lengthfld=t
heftab.findfield(\"length\")\n    perimfld=theftab.findfield(\"perimeter\")\n    \n    if (shpfld.gettype=#FIELD_SHAPEPOLY) then\n      theftab.BeginTransaction\n        if (areafld<>NIL) then\n          theftab.setvalue(areafld,therec,finalshape.returnarea)\n        end\n        if (perimfld<>NIL) then\n          theftab.setvalue(perimfld,therec,finalshape.returnlength)\n        end\n      theftab.EndTransaction  \n    elseif (shpfld.gettype=#FIELD_SHAPELINE) then\n      theftab.BeginTransaction\n      if (lengthfld<>NIL) t
hen\n        theftab.setvalue(lengthfld,therec,finalshape.returnlength)\n      end\n      theftab.EndTransaction  \n    end\n  end\n  theobjtag=thedialog.findbyname(\"apply\").getobjecttag\n  therect=theobjtag.returnextent.returnUnion(finalshape.returnextent)\n  theview.getdisplay.invalidaterect(therect.returnextent)\n  theview.getdisplay.flush\n  theftab.updateselection\n  \nend\n\ntheApply.setobjecttag(finalshape)\n\nreturn(TRUE)"
)

(Script.134
    Name:    "ShapeWin.Open"
    SourceCode:    "theDialog=Self\nthedialog.findbyname(\"ShapeList\").definefromlist({})\n\n'number.setdefformat(\"d.dddddd\")\ntheView=av.getactivedoc\nif (theview.is(View).not) then\n  return(nil)\nend\n\nthedialog.findbyname(\"add\").setenabled(false)\nthedialog.findbyname(\"delete\").setenabled(false)\nthedialog.findbyname(\"Edit\").setenabled(false)\nthedialog.findbyname(\"UpdateShape\").setselected(false)\nthedialog.findbyname(\"UpdateShape\").setenabled(false)\n\ntheDipaly=theView.Getdisplay\n\ntheTheme = theView.GetEditableTheme\nif (thetheme=NIL)
then\n  theThemes=theview.getactivethemes\n  if (thethemes.count<>0) then\n    theTheme=theThemes.get(0)\n    if (theTheme.is(Ftheme).Not) then\n      theTheme=NIL\n    end\n  end\nend\n\n\nTheGraphics=theView.getgraphics\ntheSelGraphics=theGraphics.getselected\n\nif (theSelGraphics.count = 1)  then\n  aisGraphics=TRUE\n\n  theSelGraphic=theSelGraphics.get(0)  \n  ' -------------------------\n  ' Trap for Graphic Text\n  ' -------------------------\n  if (theSelGraphic.is(graphicText)) then\n    if (theSelGraphic.canedittext) Th
en\n      theSelGraphic.edittext\n      exit\n    else\n      exit\n    end\n  end\n\n  theShape= theSelGraphic.getshape\n  theshapesrc=theShape\n  _shapewinedit=TRUE\n  thedialog.findbyname(\"add\").setenabled(true)\n  thedialog.findbyname(\"delete\").setenabled(true)\n  thedialog.findbyname(\"edit\").setenabled(true)    \n\nelseif (theTheme<>NIL) then\n  aisGraphics=FALSE\n  theFtab=thetheme.getftab\n  if (theFtab.getselection.count=0) then\n    return(nil)\n  end\n  thesel=theftab.getselection\n  theshpfld=theftab.findfield(\"shape\"
)\n  for each arec in thesel\n    theshapesrc=theftab.returnvalue(theshpfld,arec)\n    therec=arec\n    break\n  end\n  if (theview.geteditabletheme=thetheme) then\n    _shapewinedit=TRUE\n    thedialog.findbyname(\"UpdateShape\").setenabled(TRUE)\n    thedialog.findbyname(\"add\").setenabled(true)\n    thedialog.findbyname(\"delete\").setenabled(true)\n    thedialog.findbyname(\"edit\").setenabled(true)    \n    \n  else\n    _shapewinedit=FALSE\n    thedialog.findbyname(\"UpdateShape\").setenabled(FALSE)\n    thedialog.findbyname(
\"add\").setenabled(false)\n    thedialog.findbyname(\"delete\").setenabled(false)\n    thedialog.findbyname(\"edit\").setenabled(false)    \n  \n  end\n  \nelse\n  exit\nend\n\n\n\n\n\nif (theView.getProjection.isNull.NOT) then\n  if (aisGraphics=false) then\n    theshape=theshapesrc.returnprojected(theview.getprojection)\n  end\nelse\n    theshape=theshapesrc\nend\n\nshplist={}\n'msgbox.report(theshape.asstring,\"\")\n'exit\n\nif (theShape.is(Circle)) then\n  av.finddialog(\"circle\").open\n  exit  \nelseif (theShape.is(rect)) then\n    Poly1=t
heShape.aspolygon.aslist.get(0)\n    shplist=poly1.aslist\n    typetxt=\"Polygon\"\n    numv=shplist.count\n\nelseif (theShape.is(Polygon)) then\n\n  if (theshape.aslist.count = 1) then\n    Poly1=theShape.aslist.get(0)\n    shplist=poly1.aslist\n    shplist.removeobj(poly1.aslist.get(0))\n    typetxt=\"Polygon\"\n    numv=shplist.count\n  else\n   numv=0\n   for each apart in theshape.aslist\n     for each apt in apart.aslist\n       shplist.add(apt)\n     end\n    shplist.removeobj(apart.aslist.get(0))\n    shplist.add(\"------Mu
lti-Part Separator -----\")\n    numv=numv+apart.aslist.count\n   end\n   \n   typetxt=\"Multi-Polygon\"\n  end\nelseif (theShape.is(Line))  then\n  line1=theshape.aspolyline.aslist.get(0)\n  shplist=line1.aslist\n  shplist.removeduplicates\n\n  typetxt=\"Line\"\n  numv=shplist.count\n\nelseif (theShape.is(PolyLine))  then\n'-----------\n  if (theshape.aslist.count = 1) then\n    pline1=theShape.aslist.get(0)\n    shplist=pline1.aslist\n\n    typetxt=\"PolyLine\"\n    numv=shplist.count\n  else\n   numv=0\n   for each apart in theshape.a
slist\n     for each apt in apart.aslist\n       shplist.add(apt)\n     end\n    \n     shplist.add(\"------Multi-Part Separator -----\")\n     numv=numv+apart.aslist.count\n   end\n   \n   typetxt=\"Multi-Polyline\"\n  end\n\nelseif (theShape.is(Point)) then\n'  Point1=theShape.aslist\n  shplist={theshape}\n  typetxt=\"Point\"\n  numv=shplist.count\n  thedialog.findbyname(\"add\").setenabled(false)\n  thedialog.findbyname(\"delete\").setenabled(false)\n\n\nelseif (theShape.is(Multipoint)) then\n\n  for each apt in theshape.aslist\n    shpl
ist.add(apt)\n  end\n  numv=theshape.aslist.count\n  \n  typetxt=\"Multi-Point\"\n\nend\n\nif (shplist.Count > 32000) then\n  Msgbox.Error(\"the shape you have selected has too many vertices.\",\"\")\n  theDialog.Close\n  return nil\nend\nthedialog.findbyname(\"ShapeList\").definefromlist(shplist)\nthedialog.findbyname(\"ShapeType\").settext(typetxt)\nnumv.setformat(\"d\")\nthedialog.findbyname(\"NumVertex\").settext(numv.asstring)\nif (aisGraphics) then\n  theselgraphic.setname(\"TempGraphic\")\n  TheDialog.setobjecttag(theselgraphic.clone)
\nelse\n  TheDialog.setobjecttag({theftab,therec,theshapesrc.clone})\nend\n\nthedialog.findbyname(\"Apply\").setobjecttag(theshapesrc)\nthedialog.findbyname(\"ShapeList\").SelectCurrent(FALSE)\nthedialog.findbyname(\"ShapeList\").select\nthedialog.findbyname(\"ShapeList\").focus"
)

(Script.135
    Name:    "Shapewin.Popup Open"
    SourceCode:    "theview=av.getactivedoc\nthedialog=av.finddialog(\"ShapeWin\")\nif (thedialog.isopen) then\n\n  '''''''''''''''''''''''''''''''''\n  if (thedialog.getobjecttag.is(Graphic)) then \n    badg=theview.getgraphics.findallbyname(\"TempGraphic\")\n    if (badg <> NIL) then\n      for each abaggraphic in badg.clone\n        theview.getgraphics.removeGraphic(abaggraphic)\n      end\n    end \n    agoodgraphic=thedialog.getobjecttag\n    if (agoodgraphic.is(graphic)) then\n      agoodgraphic.setname(\"\")\n  \n      agoodgraphic.setselect
ed(FALSE)\n      theview.getgraphics.add(agoodgraphic)\n    end\n\n  elseif ((thedialog.getobjecttag.is(list)) and (thedialog.getobjecttag.get(0).is(FTAB)) ) then\n\n    theTheme = theView.GetEditableTheme\n    if (thetheme<>NIL) then\n    \n      theftab=thedialog.getobjecttag.get(0)\n      \n      if (thetheme.getftab<>theftab) then\n  \n      else\n        shpfld=theftab.findfield(\"shape\")\n        therec=thedialog.getobjecttag.get(1)\n        theoldshp=thedialog.getobjecttag.get(2)\n        theftab.BeginTransaction\n
    theftab.setvalue(shpfld,therec,theoldshp)\n        theftab.EndTransaction\n        theview.getdisplay.invalidaterect(theoldshp.returnextent)\n      end\n    end\n    \n  end\n\n  thedialog.findbyname(\"ShapeList\").definefromlist({})\n  thedialog.setobjecttag(NIL)\n  thedialog.close\n\n  ';''''''''''''''''''''''''''\n  \nend\n  thedialog.open\n"
)

(Script.136
    Name:    "ShapeWin.SelectPoint"
    SourceCode:    "theView=av.getactivedoc\nif (theview.is(View).not) then\n  return(nil)\nend\n\nthedialog=SELF.getdialog\nthepoints=SELF.getselection\nthenumpoints=SELF.getlist.count\nif (_shapewinedit=TRUE) then\n  if (thepoints.count = 1) then\n   if (thenumpoints = 1) then\n     thedialog.findbyname(\"add\").setenabled(false)\n     thedialog.findbyname(\"delete\").setenabled(FALSE)\n     thedialog.findbyname(\"Edit\").setenabled(true)\n   else\n     thedialog.findbyname(\"add\").setenabled(true)\n     thedialog.findbyname(\"delete\").setenabled(t
rue)\n     thedialog.findbyname(\"Edit\").setenabled(true)\n   end\n  else\n   thedialog.findbyname(\"add\").setenabled(FALSE)\n   thedialog.findbyname(\"delete\").setenabled(TRUE)\n  thedialog.findbyname(\"Edit\").setenabled(FALSE)\n  end\nelse\n  thedialog.findbyname(\"add\").setenabled(FALSE)\n  thedialog.findbyname(\"delete\").setenabled(FALSE)\n  thedialog.findbyname(\"Edit\").setenabled(FALSE)\n\nend\ngplist={}\n\nfor each thepoint in thepoints\n  if (thepoint.is(Point).not) then\n    continue\n  end\n  x=thepoint.getx\n  y=thepoint.ge
ty\n  agraphic=graphicshape.make(x@y)\n\n'  agraphic.getsymbol.setcolor(color.getred)\n  agraphic.setname(\"VertexPoints\")\n\n  gplist.add(agraphic)\n\nend\n\n\nthepts=av.getactivedoc.getgraphics.findallbyname(\"VertexPoints\")\nif (thepts <> NIL) then\n  for each apt in thepts.clone\n    av.getactivedoc.getgraphics.removeGraphic(apt)\n  end\nend\nfor each ag in gplist\n  av.getactivedoc.getgraphics.addbatch(ag)\nend\nav.getactivedoc.getgraphics.endbatch\n\n"
)

(Script.137
    Name:    "ShapeWin.Vertex edit Activate"
    SourceCode:    "thedialog=SELF\ntheview=av.getactivedoc\nif (theview.is(view).not) then\n  self.close\n  return(nil)\nend\n\nif (av.finddialog(\"ShapeWin\").getobjecttag.is(list)) then\n  if (theview.GetEditableTheme = NIL) then\n    self.close\n    av.finddialog(\"ShapeWin\").close\n  end\nend\n\n\ntheTheme = theView.GetEditableTheme\nif (theTheme=NIL) then\n  TheGraphics=theView.getgraphics\n  theSelGraphics=theGraphics.getselected\n  \n  if (theSelGraphics.count <> 1) then\n    self.close\n    av.finddialog(\"ShapeWin\").close\n  end\n\n  theSelGraph
ic=theSelGraphics.get(0)  \n  ' -------------------------\n  ' Trap for Graphic Text\n  ' -------------------------\n  if (theSelGraphic.is(graphicText)) then\n    self.close\n    av.finddialog(\"ShapeWin\").close\n  end\n\n  theShape= theSelGraphic.getshape\n  theshapesrc=theshape\nelse\n  theFtab=thetheme.getftab\n  if (theFtab.getselection.count=0) then\n    self.close\n    av.finddialog(\"ShapeWin\").close\n  end\n  thesel=theftab.getselection\n  theshpfld=theftab.findfield(\"shape\")\n  for each arec in thesel\n    theshapesrc=
theftab.returnvalue(theshpfld,arec)\n    break\n  end\nend\n\nif (theshapesrc<>av.finddialog(\"ShapeWin\").findbyname(\"apply\").getobjecttag) then    \n    msgbox.warning(\"The selected shape has been changed, the dialog will now re-initalize\",\"Warning\")\n    av.finddialog(\"ShapeWin\").findbyname(\"apply\").setobjecttag(av.finddialog(\"ShapeWin\").findbyname(\"apply\").getobjecttag)\n    av.finddialog(\"ShapeWin\").close\n    av.finddialog(\"ShapeWin\").open\n    self.close\n\nend\n"
)

(Script.138
    Name:    "ShapeWin.Vertex Edit Cancel"
    SourceCode:    "self.getdialog.close\n\nif (av.getactivedoc.is(view)) then\nav.getactiveGUI.gettoolbar.getcontrols.get(0).select\nend\n'shapewin=av.finddialog(\"ShapeWin\")\n'shapewin.activate\n"
)

(Script.139
    Name:    "ShapeWin.Vertex Edit OK"
    SourceCode:    "thedialog=self.getdialog\n\nif (av.getactivedoc.is(view)) then\n  av.getactiveGUI.gettoolbar.getcontrols.get(0).select\nend\n\nshapewin=av.finddialog(\"ShapeWin\")\nx=thedialog.findbyname(\"x\").gettext.asnumber\ny=thedialog.findbyname(\"y\").gettext.asnumber\n\n\napt=x@y\nif (thedialog.findbyname(\"m\").isVisible) then\n  m=thedialog.findbyname(\"m\").gettext.asnumber\n  apt=pointM.make(x,y,m)\nend\n\nif (thedialog.findbyname(\"z\").isVisible) then\n  z=thedialog.findbyname(\"z\").gettext.asnumber\n  apt=pointz.make(x,y,z)\nend\n\nif ((thedi
alog.findbyname(\"z\").isVisible) and \n   (thedialog.findbyname(\"m\").isVisible)) then\n  m=thedialog.findbyname(\"m\").gettext.asnumber\n  z=thedialog.findbyname(\"z\").gettext.asnumber\n  apt=pointM.make(x,y,m)\n  apt=apt@z\nend\n\n\nshapewin.findbyname(\"ShapeList\").setcurrentvalue(apt)\n\nif (av.getactivedoc.is(view).not) then\n  return(nil)\nend\n\n\nagraphic=graphicshape.make(apt)\nthepts=av.getactivedoc.getgraphics.findallbyname(\"VertexPoints\")\nif (thepts <> NIL) then\n  for each apt in thepts.clone\n    av.getactivedoc.getgr
aphics.removeGraphic(apt)\n  end\nend\nagraphic.setname(\"VertexPoints\")\nav.getactivedoc.getgraphics.add(agraphic)\nav.getactivedoc.getdisplay.flush\nav.getactivedoc.getdisplay.invalidaterect(rect.make(apt,1@1))\n\nthedialog.close\n\nshapewin.findbyname(\"Apply\").click\n\n"
)

(Script.140
    Name:    "ShapeWin.XYActiveate"
    SourceCode:    "thedialog=self\ntheview=av.getactivedoc\n\nav.clearstatus\nif (thedialog.isOpen.Not) then\n  return(nil)\nend\n\nif (theview.is(view).not) then\n\n  for each acontrol in theDialog.getcontrolpanel.getcontrols\n    if (acontrol.is(ControlPanel)) then\n      for each thectl in acontrol.getcontrols\n         thectl.setenabled(false)\n      end\n    else\n      acontrol.setenabled(false)\n    end\n   thedialog.findbyname(\"Cancel\").setenabled(TRUE)\n  end\nelse\n  for each acontrol in theDialog.getcontrolpanel.getcontrols\n    if (aco
ntrol.is(ControlPanel)) then\n      for each thectl in acontrol.getcontrols\n         thectl.setenabled(TRUE)\n      end\n    else\n      acontrol.setenabled(TRUE)\n    end\n'   thedialog.findbyname(\"Cancel\").setenabled(TRUE)\n  end\n\n\nend\n"
)

(Script.141
    Name:    "MyDialogExt.CanUnLoad"
    SourceCode:    "'return (System.CanUnloadLibrary(self.GetDependencies.Get(0)))\nreturn(TRUE)"
)

(Script.142
    Name:    "MyDialogExt.Unload"
    SourceCode:    "' MyDialogExt.Unload\nDialog.DetachFromExtension(self)"
)

(Script.143
    Name:    "MyDialogExt.Install"
    SourceCode:    "'' MyDialogExt.Install\n'' Only install user interface components if a project is open\n'if (av.GetProject = nil) then\n'  return nil\n'end\n'\n'' Retrieve the popupitem  from the extension (self) and \n'' add it after the first popupset\n'anitem=SELF.get(3)\n'\n'viewGUI = av.GetProject.FindGUI(\"View\")\n'apopupset=viewGUI.GetPopups.findbylabel(\"Menu\")\n'apopupset.add(anitem,99)\n'viewGUI.SetModified(TRUE)"
)

(Script.144
    Name:    "MyDialogExt.UnInstall"
    SourceCode:    "'' MyDialogExt.UnInstall\n'if (av.GetProject = nil) then \n'  return nil\n'end\n'\n'if (av.GetProject.IsClosing) then\n'  return nil\n'end\n'\n'' Remove the button from the button bar\n'apopup = av.findgui(\"view\").GetPopups.findbylabel(\"Menu\")\n'apopup.remove(apopup.findbyscript(\"Shapewin.PopUp Open\"))"
)